Top 10k strings from Stock Control (1984)(Gemini Marketing)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 i$="00"+a$(
   1 ntered or 
   1 l)+" "+d$(i,l+1
   1 i$="16120820":
   1 i$="1604061"+t$(1
   1 i$="123456":
   1 e$=d$(r,co+1
   1 d(i,j)=d(i+1
   1 d$(nr,co+1
   1 d$(i)=d$(i+1
   1 co=co+d(i,2
   1 a100  Bolts (6 inch) Jones Ltd   1 Dozen a200  Bolts (8 inch) Jones Ltd   1 Dozen b100  2 inch nails   Bloggs      50      b200  6 inch nails   Bloggs      50      c100  Programmers    IBM         Gross   c500  BBC Computers  Acorn       1                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
   1 a$=d$(r,co+1
   1 Write File on TapeA
   1 Total sell value of stock
   1 Total cost value of stock
   1 Ref.    Description    Stock    
   1 Record# ";nr;"
   1 Record# "+
   1 Overall gross profit margin
   1 List Records
   1 ICS       5
   1 ICS       ("
   1 Enter option
   1 Cost of new purchases
   1 ;t;" records found":
   1 ;nr;" items on file":
   1 ;ma-nr;" items remaining":
   1 ;g;" per cent":
   1 ;a$;" - ";b$:
   1 ;"W - Fwds"
   1 ;"Version 9/84":
   1 ;"Tel (0395) 265165"
   1 ;"Stock Control":
   1 ;"Q - Bwds":
   1 ;"Press  a";
   1 ;"Microdrive or Cassete (m/c)? ";:
   1 ;"LOADING PROGRAM .. PLEASE WAIT"
   1 ;"Key   to";
   1 ;"Exmouth";
   1 ;"Enter reference":
   1 ;"Enter amount?":
   1 ;"Enter Choice":
   1 ;"England";
   1 ;"Delete?":
   1 ;"Continue":
   1 ;"Browse from which record?":
   1 ;"Are you sure?":
   1 ;"Any key to continue
   1 ;"Any key for menu":
   1 ;"6. Exit to main menu":
   1 ;"5. Print stock summary":
   1 ;"4. Print single record":
   1 ;"3. Screen stock summary":
   1 ;"21, Dinan Way Trading Estate";
   1 ;"2. Screen single record":
   1 ;"1. Browse records":
   1 ;"** No such record **":
   1 ;"** Deleting **":
   1 ;"* No  room *":
   1 ;"* - Quit":
   1 1984 Gemini Marketing Ltd.":
   1 *(v-t)/(t+.0001
   1 "Reference","Description","Supplier","Unit Quantity","Units in Stock","Cost per Unit","Sell per Unit","Minimum stock","Re-order quantity"
   1 "Enter Filename ";t$
   1 "A","Add Stock Items","C","Change a Stock Item","D","Delete a Stock Item","E","Exit Program","F","Financial Summary","L","List Stock Records","N","New File","R","Stock Removed/Received","U","Understocked Items","W","Write File on Tape","Z","Zero Stock Quantities"
   1   1984 Gemini Marketing Ltd"